home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / C-Cl / ClassAdministrator1.3.cpt / Classroom Administrator / background_8817.txt < prev    next >
Text File  |  1988-04-18  |  4KB  |  167 lines
  1. -- background: 8817 from stack: in
  2. -- bmap block id: 2387
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=148 top=108 right=129 bottom=347
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Name
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=148 top=139 right=160 bottom=347
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Phone Number
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=148 top=171 right=192 bottom=347
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: GradeToDate
  48. ----- HyperTalk script -----
  49. On mouseUp
  50.   push this card
  51.   put char 1 of word 1 of field "Name" into temp
  52.   put temp & word 2 of field "Name" & "Grades" into cardname
  53.   visual effect iris open
  54.   go to card cardname
  55.   get loc of bkgnd field "Points"
  56.   click at it
  57.   put bkgnd field "Points" into points
  58.   pop card
  59.   if points < line 3 of card field "D" then
  60.     put "F" into field "GradeToDate"
  61.     exit mouseUp
  62.   end if
  63.   if points < line 2 of card field "D" then
  64.     put "D-" into field "GradeToDate"
  65.     exit mouseUp
  66.   end if
  67.   if points < line 1 of card field "D" then
  68.     put "D" into field "GradeToDate"
  69.     exit mouseUp
  70.   end if
  71.   if points < line 3 of card field "C" then
  72.     put "D+" into field "GradeToDate"
  73.     exit mouseUp
  74.   end if
  75.   if points < line 2 of card field "C" then
  76.     put "C-" into field "GradeToDate"
  77.     exit mouseUp
  78.   end if
  79.   if points < line 1 of card field "C" then
  80.     put "C" into field "GradeToDate"
  81.     exit mouseUp
  82.   end if
  83.   if points < line 3 of card field "B" then
  84.     put "C+" into field "GradeToDate"
  85.     exit mouseUp
  86.   end if
  87.   if points < line 2 of card field "B" then
  88.     put "B-" into field "GradeToDate"
  89.     exit mouseUp
  90.   end if
  91.   if points < line 1 of card field "B" then
  92.     put "B" into field "GradeToDate"
  93.     exit mouseUp
  94.   end if
  95.   if points < line 3 of card field "A" then
  96.     put "B+" into field "GradeToDate"
  97.     exit mouseUp
  98.   end if
  99.   if points < line 2 of card field "A" then
  100.     put "A-" into field "GradeToDate"
  101.     exit mouseUp
  102.   end if
  103.   if points < line 1 of card field "A" then
  104.     put "A" into field "GradeToDate"
  105.     exit mouseUp
  106.   end if
  107.   if points >= line 1 of card field "A" then put "A+" into field "GradeToDate"
  108. End MouseUp
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117. -- part 5 (button)
  118. -- low flags: 00
  119. -- high flags: 0003
  120. -- rect: left=138 top=0 right=22 bottom=238
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 1014 / 1014
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: New Button
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   go previous
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 6 (button)
  137. -- low flags: 00
  138. -- high flags: 0003
  139. -- rect: left=257 top=0 right=23 bottom=342
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 1013 / 1013
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: New Button
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   go next
  151. end mouseUp
  152.  
  153.  
  154.  
  155. -- part 11 (field)
  156. -- low flags: 00
  157. -- high flags: 4002
  158. -- rect: left=119 top=202 right=291 bottom=460
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 0
  162. -- font id: 3
  163. -- text size: 10
  164. -- style flags: 0
  165. -- line height: 13
  166. -- part name: 
  167.